perm filename ERRORX.LAP[IL,LSP] blob
sn#147368 filedate 1975-02-21 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 (DEFPROP ERFNS (ERFNS (NOCALL EVALP BKTRACE BKFIND BKTR BKTRV BKPRINVAL BKACT CHNMX CHNM1 BKREAD ARGLIST GOFN) E→
C00078 ENDMK
C⊗;
(DEFPROP ERFNS (ERFNS (NOCALL EVALP BKTRACE BKFIND BKTR BKTRV BKPRINVAL BKACT CHNMX CHNM1 BKREAD ARGLIST GOFN) E→
RRORX //BREAK1 BREAK1ERX EVALP GOFN %ERDEPTH PLEV FROM?= USE ?= & EDBRK *RSETERX BKTRACE FNDBRKPT BKFIND BKTR BK→
TRV BKPRINVAL BKACT CHNMX CHNM1 BKREAD BKPOS ARGLIST LXPD PREVEV STKNAME STKNTH STKSRCH STKCOUNT ARGPRINT) VALUE→
)
(DEFPROP EVALP T NOCALL)
(DEFPROP BKTRACE T NOCALL)
(DEFPROP BKFIND T NOCALL)
(DEFPROP BKTR T NOCALL)
(DEFPROP BKTRV T NOCALL)
(DEFPROP BKPRINVAL T NOCALL)
(DEFPROP BKACT T NOCALL)
(DEFPROP CHNMX T NOCALL)
(DEFPROP CHNM1 T NOCALL)
(DEFPROP BKREAD T NOCALL)
(DEFPROP ARGLIST T NOCALL)
(DEFPROP GOFN T NOCALL)
(LAP ERRORX SUBR)
(MOVE 1 (SPECIAL USERERRORX) S)
(JUMPE 1 TAG3)
(PUSH P 1)
(CALLF@ 0 0 P)
(SUB P (C 1 0 1 0))
TAG3 (JUMPN 1 TAG1)
(JSP 6 SPECBIND)
(0 0 (SPECIAL LASTPOS) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 0 (E SPDLPT) S)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(MOVEI 1 (QUOTE ERRORX) S)
(CALL 3 (E STKSRCH) S)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 (SPECIAL LASTPOS) S)
(JUMPE 1 TAG12)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 0 P)
(JRST 0 TAG11)
TAG12 (CALL 0 (E ERR) S)
TAG11 (PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 -2 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG17)
(TDZA 2 2)
TAG17 (MOVEI 2 (QUOTE T) S)
(JUMPN 2 TAG16)
(CALL 0 (E SPDLPT) S)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(MOVEI 1 (QUOTE ERRORX) S)
(CALL 3 (E STKSRCH) S)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(MOVEI 1 (QUOTE //BREAK1) S)
(CALL 3 (E STKSRCH) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG20)
(CALL 0 (E SPDLPT) S)
(MOVE 2 0 P)
(CALL 2 (E *DIF) S)
(MOVE 2 (SPECIAL %ERDEPTH) S)
(CALL 2 (E *GREAT) S)
(MOVE 2 1)
(JRST 0 TAG16)
TAG20 (MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(JUMPE 1 TAG21)
(MOVEI 2 (QUOTE T) S)
(JRST 0 TAG16)
TAG21 (MOVEI 2 (QUOTE NIL))
TAG16 (MOVEM 2 0 P)
(MOVE 1 -2 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG23)
(MOVE 3 -2 P)
(JRST 0 TAG22)
TAG23 (HLRZ@ 3 -2 P)
TAG22 (MOVEI 5 (QUOTE ERRORX) S)
(MOVEI 4 (QUOTE NIL))
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 5 (E BREAK1) S)
(SUB P (C 2 0 2 0))
(MOVE 2 1)
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 2 (E OUTVAL) S)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P SPECSTR)
(SUB P (C 1 0 1 0))
TAG1 (POPJ P)
NIL
(LAP BKREAD FSUBR)
(PUSH P 1)
(MOVE 1 (SPECIAL %%CMDL) S)
(JUMPE 1 TAG4)
(HRRZ@ 1 1)
TAG4 (JUMPE 1 TAG2)
(HRRZ@ 1 (SPECIAL %%CMDL) S)
(PUSH P (SPECIAL %%CMDL) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
TAG5
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP SUBFUN1//BREAK1 SUBR)
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 1 (E *EVAL) S)
(JCALL 1 (E %PRINFN) S)
NIL
(LAP SUBFUN2//BREAK1 SUBR)
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(JCALL 1 (E *EVAL) S)
NIL
(LAP //BREAK1 SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL LASTPOS) S)
(0 0 (SPECIAL !VALUE) S)
(0 0 (SPECIAL %%MSGFLAG) S)
(0 0 (SPECIAL %%BKPOS) S)
(0 0 (SPECIAL %%CMDL) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL BRKEXP) S)
(JUMPN 1 TAG10)
(MOVEI 1 (QUOTE (QUOTE NIL)) S)
(MOVEM 1 (SPECIAL BRKEXP) S)
TAG10 (MOVE 1 (SPECIAL BRKTYPE) S)
(CAIE 1 (QUOTE ERRORX) S)
(JRST 0 TAG14)
(MOVEI 1 (QUOTE ERRORX) S)
(JRST 0 TAG13)
TAG14 (MOVEI 1 (QUOTE //BREAK1) S)
TAG13 (PUSH P 1)
(CALL 0 (E SPDLPT) S)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(POP P 1)
(CALL 3 (E STKSRCH) S)
(MOVEM 1 (SPECIAL LASTPOS) S)
(JUMPE 1 TAG12)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 (SPECIAL %%BKPOS) S)
(CALL 1 (E STKNAME) S)
(CAIE 1 (QUOTE BREAK1) S)
(JRST 0 TAG16)
(MOVE 1 (SPECIAL %%BKPOS) S)
(MOVEM 1 (SPECIAL LASTPOS) S)
TAG16
TAG12 (MOVE 1 (SPECIAL LASTPOS) S)
(MOVEM 1 (SPECIAL %%BKPOS) S)
(CALL 0 (E TYIGBL) S)
(MOVE 1 (SPECIAL %SCANSETFLAG%) S)
(JUMPE 1 TAG20)
(CALL 0 (E SCANPUSH) S)
TAG20 (MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E INC) S)
(MOVEI 2 (QUOTE NIL))
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E OUTC) S)
(MOVE 2 (SPECIAL #%IOCHANS%#) S)
(CALL 2 (E CONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL #%IOCHANS%#) S)
(MOVEI 1 (QUOTE 72))
(CALL 1 (E PROMPT) S)
(MOVE 2 (SPECIAL #%PROMPTS%#) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL #%PROMPTS%#) S)
(MOVE 1 (SPECIAL BRKWHEN) S)
(JUMPN 1 TAG21)
(MOVE 1 (SPECIAL BRKTYPE) S)
(CAIE 1 (QUOTE ERRORX) S)
(JRST 0 TAG22)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E *RSETERX) S)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG21)
TAG22 (MOVE 1 (SPECIAL BRKEXP) S)
(CALL 1 (E FROM?=) S)
TAG21 (MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(JUMPN 1 TAG23)
(MOVE 1 (SPECIAL LASTPOS) S)
TAG23 (MOVEM 1 (SPECIAL LASTPOS) S)
TAG1 (MOVE 1 (SPECIAL BRKCOMS) S)
(JUMPE 1 TAG25)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL %%CMDL) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG27)
(MOVE 1 (SPECIAL %%CMDL) S)
(CALL 1 (E NCONS) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
TAG27 (HRRZ@ 1 (SPECIAL BRKCOMS) S)
(MOVEM 1 (SPECIAL BRKCOMS) S)
(JRST 0 TAG24)
TAG25 (CALL 0 (E TERPRI) S)
(CALL 0 (E TERPRI) S)
(MOVE 1 (SPECIAL %%MSGFLAG) S)
(JUMPN 1 TAG33)
(MOVEI 1 (QUOTE BROKEN) S)
(CALL 1 (E NCONS) S)
(MOVE 2 (SPECIAL BRKFN) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E PRINC) S)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL %%MSGFLAG) S)
TAG33 (MOVE 1 (SPECIAL #%PROMPTS%#) S)
(CALL 1 (E LENGTH) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE ((LINEREAD) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG1)
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
TAG24
TAG2 (MOVE 1 (SPECIAL %%CMDL) S)
(JUMPN 1 TAG41)
(MOVEI 1 (QUOTE 72))
(CALL 1 (E PROMPT) S)
(JRST 0 TAG1)
TAG41 (HLRZ@ 1 (SPECIAL %%CMDL) S)
(MOVEM 1 (SPECIAL SELECTQ) S)
(CAIE 1 (QUOTE ↑) S)
(JRST 0 TAG44)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E *RSETERX) S)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG43)
TAG44 (CAIE 1 (QUOTE ↑↑) S)
(JRST 0 TAG45)
(MOVE 1 (SPECIAL #%PROMPTS%#) S)
(CALL 1 (E LENGTH) S)
(CALL 1 (E *RSETERX) S)
(MOVEI 1 (QUOTE NIL))
(CALL 17 (E **TOP**) S)
(JRST 0 TAG43)
TAG45 (CAIE 1 (QUOTE BK) S)
(JRST 0 TAG46)
(MOVEI 1 (QUOTE (1000)) S)
(PUSHJ P BKREAD)
(MOVEI 2 (QUOTE (NIL T T T)) S)
(PUSHJ P BKTRACE)
(JRST 0 TAG43)
TAG46 (CAIE 1 (QUOTE BKE) S)
(JRST 0 TAG47)
(MOVEI 1 (QUOTE (1000)) S)
(PUSHJ P BKREAD)
(MOVEI 2 (QUOTE (NIL NIL T T)) S)
(PUSHJ P BKTRACE)
(JRST 0 TAG43)
TAG47 (CAIE 1 (QUOTE BKF) S)
(JRST 0 TAG50)
(MOVEI 1 (QUOTE (1000)) S)
(PUSHJ P BKREAD)
(MOVEI 2 (QUOTE (NIL NIL NIL T)) S)
(PUSHJ P BKTRACE)
(JRST 0 TAG43)
TAG50 (CAIE 1 (QUOTE BKV) S)
(JRST 0 TAG51)
(MOVEI 1 (QUOTE (1000)) S)
(PUSHJ P BKREAD)
(MOVEI 2 (QUOTE (T T T T)) S)
(PUSHJ P BKTRACE)
(JRST 0 TAG43)
TAG51 (CAIE 1 (QUOTE BKEV) S)
(JRST 0 TAG52)
(MOVEI 1 (QUOTE (1000)) S)
(PUSHJ P BKREAD)
(MOVEI 2 (QUOTE (T NIL T T)) S)
(PUSHJ P BKTRACE)
(JRST 0 TAG43)
TAG52 (CAIE 1 (QUOTE BKFV) S)
(JRST 0 TAG53)
(MOVEI 1 (QUOTE (1000)) S)
(PUSHJ P BKREAD)
(MOVEI 2 (QUOTE (T NIL NIL T)) S)
(PUSHJ P BKTRACE)
(JRST 0 TAG43)
TAG53 (CAIE 1 (QUOTE >) S)
(JRST 0 TAG54)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P BKREAD)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG61)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG63)
(CALL 1 (E SPDLRT) S)
TAG63 (MOVE 3 -2 P)
(MOVE 2 0 P)
(PUSHJ P CHNM1)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E STKPTR) S)
(MOVE 2 -2 P)
(HRRM@ 2 1)
(JRST 0 TAG60)
TAG61 (PUSH P (SPECIAL BRKEXP) S)
(MOVE 1 -3 P)
(HRLM@ 1 0 P)
(POP P 1)
(JUMPE 1 TAG66)
(MOVEI 1 (QUOTE (//BREAK1)) S)
(PUSHJ P BKREAD)
(MOVEM 1 -1 P)
(CAIE 1 (QUOTE //BREAK1) S)
(JRST 0 TAG67)
(TDZA 1 1)
TAG67 (MOVEI 1 (QUOTE T) S)
TAG66 (JUMPE 1 TAG64)
(HRRZ@ 2 (SPECIAL BRKEXP) S)
(MOVE 1 -1 P)
(CALL 2 (E CONS) S)
(PUSH P (SPECIAL BRKEXP) S)
(HRRM@ 1 0 P)
(SUB P (C 1 0 1 0))
TAG64
TAG60 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E FROM?=) S)
(SUB P (C 3 0 3 0))
(JRST 0 TAG43)
TAG54 (CAIE 1 (QUOTE GO) S)
(JRST 0 TAG70)
(MOVE 1 0 P)
(JUMPN 1 TAG71)
(HLRZ@ 1 (SPECIAL BRKEXP) S)
(PUSHJ P GOFN)
(JUMPN 1 TAG71)
(MOVE 1 (SPECIAL BRKEXP) S)
(PUSHJ P EVALP)
TAG71 (CALL 0 (E TERPRI) S)
(MOVE 1 (SPECIAL !VALUE) S)
(CALL 1 (E %PRINFN) S)
(JRST 0 TAG3)
TAG70 (CAIE 1 (QUOTE OK) S)
(JRST 0 TAG72)
(MOVE 1 0 P)
(JUMPN 1 TAG73)
(HLRZ@ 1 (SPECIAL BRKEXP) S)
(PUSHJ P GOFN)
(JUMPN 1 TAG73)
(MOVE 1 (SPECIAL BRKEXP) S)
(PUSHJ P EVALP)
TAG73 (JRST 0 TAG3)
TAG72 (CAIE 1 (QUOTE EVAL) S)
(JRST 0 TAG74)
(MOVE 1 (SPECIAL BRKEXP) S)
(PUSHJ P EVALP)
(MOVE 1 (SPECIAL !VALUE) S)
(CALL 1 (E %PRINFN) S)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 0 P)
(JRST 0 TAG43)
TAG74 (CAIE 1 (QUOTE EDIT) S)
(JRST 0 TAG75)
(PUSH P (SPECIAL %%CMDL) S)
(MOVEI 1 (QUOTE (NIL)) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(HRRZ@ 1 0 P)
(CALL 1 (E &) S)
(SUB P (C 1 0 1 0))
(JUMPE 1 TAG77)
(MOVEI 1 (QUOTE ((EDBRK) ERRORX)) S)
(CALL 17 (E ERRSET) S)
TAG77 (JRST 0 TAG43)
TAG75 (CAIE 1 (QUOTE ?=) S)
(JRST 0 TAG100)
(PUSH P (SPECIAL %%CMDL) S)
(MOVEI 1 (QUOTE (NIL)) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(HRRZ@ 1 0 P)
(CALL 1 (E ?=) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG43)
TAG100
(CAIE 1 (QUOTE =) S)
(JRST 0 TAG101)
(PUSH P (SPECIAL %%CMDL) S)
(MOVEI 1 (QUOTE (NIL)) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(HRRZ@ 1 0 P)
(CALL 1 (E ?=) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG43)
TAG101
(CAIE 1 (QUOTE ARGS) S)
(JRST 0 TAG102)
(MOVE 1 (SPECIAL BRKFN) S)
(PUSHJ P ARGLIST)
(MOVE 2 1)
(MOVEI 1 (QUOTE ARGPRINT) S)
(PUSHJ P *MAPC)
(JRST 0 TAG43)
TAG102
(CAIE 1 (QUOTE &) S)
(JRST 0 TAG103)
(PUSH P (SPECIAL %%CMDL) S)
(MOVEI 1 (QUOTE (NIL)) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(HRRZ@ 1 0 P)
(CALL 1 (E &) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG43)
TAG103
(CAIE 1 (QUOTE RETURN) S)
(JRST 0 TAG104)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P BKREAD)
(PUSHJ P EVALP)
(CALL 0 (E TERPRI) S)
(JRST 0 TAG4)
TAG104
(CAIE 1 (QUOTE FROM?=) S)
(JRST 0 TAG105)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P BKREAD)
(CALL 1 (E FROM?=) S)
(JRST 0 TAG43)
TAG105
(CAIE 1 (QUOTE FROM) S)
(JRST 0 TAG106)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P BKREAD)
(CALL 1 (E FROM?=) S)
(JRST 0 TAG43)
TAG106
(CAIE 1 (QUOTE USE) S)
(JRST 0 TAG107)
(CALL 0 (E USE) S)
(JRST 0 TAG43)
TAG107
(CAIE 1 (QUOTE UNTRACE) S)
(JRST 0 TAG110)
(MOVE 1 (SPECIAL %%BKPOS) S)
(MOVEM 1 (SPECIAL LASTPOS) S)
(PUSH P (C 0 0 TAG111 0))
(MOVE 1 (SPECIAL BRKEXP) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE %%V) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE BKSETQ) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVE 1 (SPECIAL BRKFN) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE PRIN1) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE (BKPOS (BKSETQ #%INDENT (*DIF #%INDENT 3)))) S)
(CALL 2 (E XCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE (%%V)) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE LAMBDA) S)
(CALL 2 (E XCONS) S)
(SUB P (C 1 0 1 0))
(PUSH P 1)
(MOVEI D (QUOTE ((PRINC (QUOTE / =/ )) (%PRINFN %%V) %%V)) S)
(PUSH P D)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG111
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(CALL 1 (E FROM?=) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG43)
TAG110
(MOVE 2 (SPECIAL BREAKMACROS) S)
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 2 (E ASSOC) S)
(JUMPE 1 TAG115)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 2 (SPECIAL BREAKMACROS) S)
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 2 (E ASSOC) S)
(HRRZ@ 1 1)
(HLRZ@ 2 1)
(MOVEM 1 0 P)
(JUMPE 2 TAG122)
(HLRZ@ 1 1)
(CALL 1 (E LITATOM) S)
(JUMPE 1 TAG122)
(HRRZ@ 3 0 P)
(HLRZ@ 2 0 P)
(HRRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 3 (E SUBST) S)
(JRST 0 TAG121)
TAG122
(HRRZ@ 3 0 P)
(HRRZ@ 2 (SPECIAL %%CMDL) S)
(HLRZ@ 1 0 P)
(CALL 3 (E SUBPAIR) S)
TAG121
(MOVE 2 (SPECIAL BRKCOMS) S)
(CALL 2 (E *APPEND) S)
(MOVEM 1 (SPECIAL BRKCOMS) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG115
(MOVEI 2 (QUOTE 1))
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 2 (E NTHCHAR) S)
(CAIE 1 (QUOTE >) S)
(JRST 0 TAG127)
(PUSH P (SPECIAL %%CMDL) S)
(MOVEI 2 (QUOTE 2))
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 2 (E NTHCHAR) S)
(CAIE 1 (QUOTE -) S)
(JRST 0 TAG131)
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 1 (E EXPLODE) S)
(CALL 1 (E CDDR) S)
(JRST 0 TAG130)
TAG131
(HLRZ@ 1 (SPECIAL %%CMDL) S)
(CALL 1 (E EXPLODE) S)
(HRRZ@ 1 1)
TAG130
(CALL 1 (E READLIST) S)
(HRLM@ 1 0 P)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE >) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG2)
TAG127
(MOVE 1 (SPECIAL %%MSGFLAG) S)
(JUMPE 1 TAG137)
(MOVEI 1 (QUOTE ((SUBFUN1//BREAK1) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(JRST 0 TAG136)
TAG137
(MOVEI 1 (QUOTE ((SUBFUN2//BREAK1) ERRORX)) S)
(CALL 17 (E ERRSET) S)
TAG136
(CALL 0 (E TYIGBL) S)
(MOVE 1 (SPECIAL %SCANSETFLAG%) S)
(JUMPE 1 TAG143)
(CALL 0 (E SCANPUSH) S)
TAG143
TAG43 (HRRZ@ 1 (SPECIAL %%CMDL) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(JRST 0 TAG2)
TAG3 (MOVE 1 (SPECIAL %%MSGFLAG) S)
(JUMPE 1 TAG145)
(CALL 0 (E TERPRI) S)
TAG145
(MOVE 1 (SPECIAL %%BKPOS) S)
(MOVEM 1 (SPECIAL LASTPOS) S)
(MOVE 1 (SPECIAL BRKEXP) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG146)
(HLRZ@ 1 (SPECIAL BRKEXP) S)
(CAIE 1 (QUOTE RETURN) S)
(JRST 0 TAG147)
(MOVE 1 (SPECIAL !VALUE) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(HLRZ@ 2 (SPECIAL BRKEXP) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E FROM?=) S)
(JRST 0 TAG146)
TAG147
(HLRZ@ 1 (SPECIAL BRKEXP) S)
(PUSHJ P GOFN)
(JUMPE 1 TAG150)
(MOVE 1 (SPECIAL BRKEXP) S)
(CALL 1 (E FROM?=) S)
TAG150
TAG146
TAG4 (MOVEI 1 (QUOTE 1))
(CALL 1 (E *RSETERX) S)
(MOVE 1 (SPECIAL !VALUE) S)
(SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(DEFPROP //BREAK1 (NIL) VALUE)
(LAP SUBFUN1%BKEVAL SUBR)
(MOVEI 2 (QUOTE NIL))
(HLRZ@ 1 (SPECIAL #%IOCHANS%#) S)
(JCALL 2 (E INC) S)
NIL
(LAP SUBFUN2%BKEVAL SUBR)
(MOVEI 2 (QUOTE NIL))
(HRRZ@ 1 (SPECIAL #%IOCHANS%#) S)
(HLRZ@ 1 1)
(JCALL 2 (E OUTC) S)
NIL
(LAP SUBFUN3%BKEVAL SUBR)
(PUSH P (C 0 0 TAG1 0))
(PUSH P (SPECIAL XX) S)
(PUSH P (SPECIAL YY) S)
(MOVNI 6 2)
(JCALL 16 (E BKEVAL) S)
TAG1 (POPJ P)
NIL
(LAP SUBFUN4%BKEVAL SUBR)
(PUSH P (C 0 0 TAG1 0))
(PUSH P (SPECIAL XX) S)
(MOVNI 6 1)
(JCALL 16 (E BKEVAL) S)
TAG1 (POPJ P)
NIL
(LAP %BKEVAL FSUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL XX) S)
(0 0 (SPECIAL YY) S)
(PUSH P 1)
(MOVE 1 (SPECIAL #%IOCHANS%#) S)
(JUMPE 1 TAG5)
(MOVEI 1 (QUOTE ((SUBFUN1%BKEVAL) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(MOVEI 1 (QUOTE ((SUBFUN2%BKEVAL) ERRORX)) S)
(CALL 17 (E ERRSET) S)
TAG5 (CALL 0 (E TYIRGB) S)
(MOVE 1 (SPECIAL %SCANSETFLAG%) S)
(JUMPE 1 TAG7)
(CALL 0 (E SCANPOP) S)
TAG7 (HLRZ@ 1 0 P)
(CALL 1 (E *EVAL) S)
(MOVEM 1 (SPECIAL XX) S)
(HRRZ@ 1 0 P)
(JUMPE 1 TAG10)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E *EVAL) S)
TAG10 (MOVEM 1 (SPECIAL YY) S)
(JUMPE 1 TAG12)
(MOVEI 1 (QUOTE ((SUBFUN3%BKEVAL) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(JRST 0 TAG11)
TAG12 (MOVEI 1 (QUOTE ((SUBFUN4%BKEVAL) ERRORX)) S)
(CALL 17 (E ERRSET) S)
TAG11 (MOVEM 1 (SPECIAL XX) S)
(CALL 0 (E TYIGBL) S)
(MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E INC) S)
(MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E OUTC) S)
(MOVE 1 (SPECIAL %SCANSETFLAG%) S)
(JUMPE 1 TAG16)
(CALL 0 (E SCANPUSH) S)
TAG16 (MOVE 1 (SPECIAL XX) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG20)
(MOVE 1 (SPECIAL XX) S)
(CALL 1 (E ERR) S)
(JRST 0 TAG17)
TAG20 (HLRZ@ 1 (SPECIAL XX) S)
(JRST 0 TAG1)
TAG17 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP BREAK1ERX SUBR)
(MOVE 1 (SPECIAL %%MSGFLAG) S)
(JUMPE 1 TAG2)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE ((CAR %%CMDL))) S)
(CALL 17 (E %BKEVAL) S)
(CALL 1 (E %PRINFN) S)
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE ((CAR %%CMDL))) S)
(CALL 17 (E %BKEVAL) S)
TAG1 (POPJ P)
NIL
(LAP EVALP SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL #1) S)
(MOVEI 1 (QUOTE ((%ERDEPTH) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(MOVEM 1 (SPECIAL !VALUE) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG2)
(HLRZ@ 1 (SPECIAL !VALUE) S)
(MOVEM 1 (SPECIAL !VALUE) S)
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE NIL))
TAG1 (JRST 0 SPECSTR)
NIL
(LAP GOFN SUBR)
(PUSH P 1)
(MOVEI 2 (QUOTE (GO RETURN ERR)) S)
(CALL 2 (E MEMQ) S)
(JUMPN 1 TAG1)
(MOVEI 2 (QUOTE ALIAS) S)
(MOVE 1 (SPECIAL BRKFN) S)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG2)
(MOVEI 2 (QUOTE (GO RETURN ERR)) S)
(HRRZ@ 1 1)
(CALL 2 (E MEMQ) S)
TAG2
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP %ERDEPTH SUBR)
(MOVEI 1 (QUOTE (#1)) S)
(JCALL 17 (E %BKEVAL) S)
NIL
(SETQ %ERDEPTH 20)
(LAP PLEV SUBR)
(MOVE 2 (SPECIAL %LOOKDPTH) S)
(JCALL 2 (E PRINLEV) S)
NIL
(LAP FROM?= SUBR)
(PUSH P 1)
(CALL 0 (E SPDLPT) S)
(MOVE 3 (SPECIAL LASTPOS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE //BREAK1) S)
(CALL 3 (E STKCOUNT) S)
(CALL 1 (E *RSETERX) S)
(MOVE 1 0 P)
(JUMPE 1 TAG5)
(MOVE 2 1)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 2 (E SPREVAL) S)
(JRST 0 TAG4)
TAG5 (MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SPREDO) S)
TAG4 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP USE SUBR)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P BKREAD)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 1 (QUOTE NIL))
(PUSHJ P BKREAD)
(CAIE 1 (QUOTE FOR) S)
(JRST 0 TAG5)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P BKREAD)
(MOVEM 1 0 P)
(JRST 0 TAG4)
TAG5 (MOVEI 1 (QUOTE ?) S)
(CALL 1 (E PRINT) S)
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE (NIL)) S)
(MOVEM 1 (SPECIAL %%CMDL) S)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG1)
TAG6
TAG4 (MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG10)
(MOVE 1 0 P)
(CAME 1 -1 P)
(JRST 0 TAG12)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E STKPTR) S)
(MOVE 2 -2 P)
(HRRM@ 2 1)
(MOVEM 2 (SPECIAL BRKEXP) S)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG14)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 -1 P)
(JRST 0 TAG13)
TAG14 (MOVEI 1 (QUOTE T) S)
(JRST 0 TAG1)
TAG13 (JRST 0 TAG11)
TAG12 (MOVEI 1 (QUOTE ?) S)
(CALL 1 (E PRINT) S)
(JUMPE 1 TAG15)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG1)
TAG15
TAG11
TAG10 (MOVE 3 -2 P)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(PUSHJ P CHNM1)
(JUMPN 1 TAG16)
(MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE (NOT FOUND IN)) S)
(CALL 2 (E *APPEND) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(CALL 1 (E PRINT) S)
TAG16 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP ?= SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL #COM) S)
(PUSH P 1)
(JUMPN 1 TAG6)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E STKNAME) S)
(PUSHJ P ARGLIST)
(MOVE 2 1)
(MOVEI 1 (QUOTE ARGPRINT) S)
(PUSHJ P *MAPC)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG6
TAG1 (HLRZ@ 1 0 P)
(MOVEM 1 (SPECIAL #COM) S)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG11)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E STKNAME) S)
(PUSHJ P ARGLIST)
(MOVE 2 (SPECIAL #COM) S)
(CALL 2 (E NTH) S)
(HLRZ@ 1 1)
(CALL 1 (E ARGPRINT) S)
(JRST 0 TAG10)
TAG11 (MOVE 1 (SPECIAL #COM) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG12)
(MOVE 1 (SPECIAL #COM) S)
(CALL 1 (E ARGPRINT) S)
(JRST 0 TAG10)
TAG12 (MOVEI 1 (QUOTE T) S)
(CALL 1 (E TERPRI) S)
(JUMPE 1 TAG13)
(MOVEI 1 (QUOTE (#COM (PREVEV (ADD1 LASTPOS)))) S)
(CALL 17 (E %BKEVAL) S)
(CALL 1 (E %PRINFN) S)
TAG13
TAG10 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JUMPN 1 TAG1)
(MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP & SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE (& F)) S)
(HLRZ@ 1 1)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG7)
(MOVE 1 (SPECIAL LASTPOS) S)
(MOVEM 1 0 P)
(JRST 0 TAG2)
TAG7 (MOVE 1 (SPECIAL %%BKPOS) S)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(JUMPN 1 TAG10)
(MOVE 1 (SPECIAL %%BKPOS) S)
TAG10 (MOVEM 1 0 P)
TAG1 (MOVE 1 -3 P)
(JUMPN 1 TAG12)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL LASTPOS) S)
(CALL 1 (E STKNAME) S)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG3)
TAG12 (HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CAIE 1 (QUOTE ←) S)
(JRST 0 TAG14)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 -2 P)
(JRST 0 TAG2)
TAG14 (MOVE 1 -1 P)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG21)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E STKNTH) S)
(JRST 0 TAG20)
TAG21 (MOVE 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG22)
(MOVE 3 -2 P)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 3 (E STKSRCH) S)
(CLEARM 0 -2 P)
TAG22
TAG20 (MOVEM 1 0 P)
(JUMPN 1 TAG16)
(MOVE 1 -1 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE ?) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG4)
TAG16
TAG2 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE NIL))
TAG3 (SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP EDBRK SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL L) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL LASTPOS) S)
(MOVEM 1 0 P)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 (SPECIAL L) S)
(CALL 1 (E PATOM) S)
(JUMPE 1 TAG5)
(MOVE 1 0 P)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG11)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 -1 P)
(PUSHJ P BKFIND)
TAG11 (JUMPE 1 TAG7)
(MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(PUSH P 1)
(MOVEI 1 (QUOTE UP) S)
(CALL 1 (E NCONS) S)
(MOVE 2 (SPECIAL L) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE F) S)
(CALL 2 (E XCONS) S)
(MOVEI 5 (QUOTE NIL))
(MOVEI 4 (QUOTE NIL))
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(POP P 1)
(CALL 5 (E EDITL) S)
(MOVEI 5 (QUOTE NIL))
(MOVEI 4 (QUOTE NIL))
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE NIL))
(MOVEM 1 -1 P)
(CALL 5 (E EDITL) S)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E STKPTR) S)
(PUSH P 1)
(MOVE 1 -2 P)
(JUMPE 1 TAG13)
(HLRZ@ 2 1)
(HLRZ@ 2 2)
(JRST 0 TAG12)
TAG13 (MOVEI 2 (QUOTE NIL))
TAG12 (HRRM@ 2 0 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG6)
TAG7 (MOVEI 1 (QUOTE NOT/ EDITABLE) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG2)
TAG6 (JRST 0 TAG4)
TAG5 (MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE NIL))
(MOVE 1 (SPECIAL L) S)
(CALL 3 (E EDITE) S)
TAG4 (MOVE 1 (SPECIAL L) S)
(CAME 1 (SPECIAL BRKEXP) S)
(JRST 0 TAG21)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 (SPECIAL BRKEXP) S)
TAG21
TAG2 (MOVEI 1 (QUOTE NIL))
(SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP SUBFUN1*RSETERX SUBR)
(MOVEI 2 (QUOTE NIL))
(HLRZ@ 1 (SPECIAL #%IOCHANS%#) S)
(JCALL 2 (E INC) S)
NIL
(LAP SUBFUN2*RSETERX SUBR)
(MOVEI 2 (QUOTE NIL))
(HRRZ@ 1 (SPECIAL #%IOCHANS%#) S)
(HLRZ@ 1 1)
(JCALL 2 (E OUTC) S)
NIL
(LAP *RSETERX SUBR)
(PUSH P 1)
TAG1 (MOVE 2 0 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E *GREAT) S)
(JUMPN 1 TAG3)
(MOVE 1 0 P)
(CAIE 1 (QUOTE 1))
(JRST 0 TAG6)
(MOVEI 1 (QUOTE ((SUBFUN1*RSETERX) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(MOVEI 1 (QUOTE ((SUBFUN2*RSETERX) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(HRRZ@ 1 (SPECIAL #%IOCHANS%#) S)
(HRRZ@ 1 1)
(MOVEM 1 (SPECIAL #%IOCHANS%#) S)
(HLRZ@ 1 (SPECIAL #%PROMPTS%#) S)
(CALL 1 (E PROMPT) S)
(HRRZ@ 1 (SPECIAL #%PROMPTS%#) S)
(MOVEM 1 (SPECIAL #%PROMPTS%#) S)
(CALL 0 (E TYIRGB) S)
(MOVE 1 (SPECIAL %SCANSETFLAG%) S)
(JUMPE 1 TAG10)
(CALL 0 (E SCANPOP) S)
TAG10 (JRST 0 TAG3)
TAG6 (HRRZ@ 1 (SPECIAL #%IOCHANS%#) S)
(HRRZ@ 1 1)
(MOVEM 1 (SPECIAL #%IOCHANS%#) S)
(HRRZ@ 1 (SPECIAL #%PROMPTS%#) S)
(MOVEM 1 (SPECIAL #%PROMPTS%#) S)
(MOVE 1 0 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BKTRACE SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E ADD1) S)
(CALL 1 (E PREVEV) S)
(MOVEI 2 (QUOTE " ") S)
(MOVEM 2 (SPECIAL %PREVFN%) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -5 P)
(CALL 1 (E SUB1) S)
(MOVEI 2 (QUOTE 0))
(MOVEM 1 -5 P)
(CALL 2 (E *LESS) S)
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE " ") S)
(MOVEM 1 (SPECIAL %PREVFN%) S)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG6 (MOVE 1 -3 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 -3 P)
(CALL 1 (E FNDBRKPT) S)
(MOVEM 1 0 P)
(JUMPN 1 TAG10)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG10 (MOVE 1 0 P)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 -2 P)
(PUSHJ P BKACT)
(MOVEM 1 -1 P)
(HLRZ@ 1 -4 P)
(JUMPE 1 TAG15)
(HLRZ@ 1 -1 P)
TAG15 (JUMPE 1 TAG13)
(PUSH P 0 P)
(PUSH P -4 P)
(HRRZ@ 1 -6 P)
(HLRZ@ 1 1)
(JUMPE 1 TAG17)
(HRRZ@ 3 -3 P)
(HLRZ@ 3 3)
(JRST 0 TAG16)
TAG17 (MOVEI 3 (QUOTE NIL))
TAG16 (PUSH P 3)
(HRRZ@ 1 -7 P)
(CALL 1 (E CADR) S)
(JUMPE 1 TAG21)
(HRRZ@ 4 -4 P)
(HRRZ@ 4 4)
(HLRZ@ 4 4)
(JRST 0 TAG20)
TAG21 (MOVEI 4 (QUOTE NIL))
TAG20 (PUSH P 4)
(HRRZ@ 1 -10 P)
(CALL 1 (E CADDR) S)
(JUMPE 1 TAG23)
(HRRZ@ 5 -5 P)
(HRRZ@ 5 5)
(HRRZ@ 5 5)
(HLRZ@ 5 5)
(JRST 0 TAG22)
TAG23 (MOVEI 5 (QUOTE NIL))
TAG22 (POP P 4)
(POP P 3)
(MOVE 2 -1 P)
(POP P 1)
(PUSHJ P BKTRV)
(SUB P (C 1 0 1 0))
(JRST 0 TAG12)
TAG13 (HRRZ@ 1 -4 P)
(HLRZ@ 1 1)
(JUMPE 1 TAG26)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
TAG26 (JUMPE 1 TAG24)
(MOVE 2 0 P)
(MOVE 1 -3 P)
(PUSHJ P BKTR)
(JRST 0 TAG12)
TAG24 (HRRZ@ 1 -4 P)
(CALL 1 (E CADR) S)
(JUMPE 1 TAG31)
(HRRZ@ 1 -1 P)
(CALL 1 (E CADR) S)
TAG31 (JUMPE 1 TAG27)
(MOVEI 2 (QUOTE 3))
(MOVE 1 -2 P)
(CALL 2 (E PRINTLEV) S)
(MOVEM 1 (SPECIAL %PREVFN%) S)
(JRST 0 TAG12)
TAG27 (HRRZ@ 1 -4 P)
(CALL 1 (E CADDR) S)
(JUMPE 1 TAG34)
(HRRZ@ 1 -1 P)
(CALL 1 (E CADDR) S)
(JUMPE 1 TAG36)
(MOVE 1 -2 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG37)
(TDZA 1 1)
TAG37 (MOVEI 1 (QUOTE T) S)
TAG36
TAG34 (JUMPE 1 TAG32)
(HLRZ@ 1 -2 P)
(CALL 1 (E PRINT) S)
TAG32
TAG12 (MOVE 1 0 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 6 0 6 0))
(POPJ P)
NIL
(LAP FNDBRKPT SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL L) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E NEXTEV) S)
(JUMPE 1 TAG3)
(MOVE 1 -2 P)
(CALL 1 (E ADD1) S)
(MOVEM 1 -2 P)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 (SPECIAL L) S)
TAG1 (MOVE 1 -2 P)
(MOVEM 1 0 P)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -2 P)
(JUMPN 1 TAG10)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG10 (CALL 1 (E SPDLRT) S)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG12)
(MOVE 1 -2 P)
(JRST 0 TAG2)
TAG12 (MOVE 1 -1 P)
(PUSHJ P BKFIND)
(JUMPE 1 TAG14)
(MOVE 1 -1 P)
(MOVEM 1 (SPECIAL L) S)
(JRST 0 TAG1)
TAG14 (MOVE 1 -2 P)
(JRST 0 TAG2)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 3 0 3 0))
(JRST 0 SPECSTR)
NIL
(LAP BKFIND SUBR)
(PUSH P 1)
TAG1 (HLRZ@ 1 0 P)
(CAME 1 (SPECIAL L) S)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG7)
(HLRZ@ 1 0 P)
(CALL 1 (E PATOM) S)
(JUMPN 1 TAG11)
(HLRZ@ 1 0 P)
(PUSHJ P BKFIND)
(JRST 0 TAG10)
TAG11 (MOVEI 1 (QUOTE NIL))
TAG10
TAG7 (JUMPE 1 TAG6)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG6 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(CALL 1 (E PATOM) S)
(JUMPE 1 TAG1)
(MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BKTR SUBR)
(PUSH P 1)
(PUSH P 2)
TAG1 (MOVE 1 -1 P)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -1 P)
(CALL 1 (E SPDLRT) S)
(MOVEI 2 (QUOTE 3))
(CALL 2 (E PRINTLEV) S)
(MOVEM 1 (SPECIAL %PREVFN%) S)
(MOVE 1 -1 P)
(CAMN 1 0 P)
(JRST 0 TAG3)
(MOVE 1 -1 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP BKTRV SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P 5)
(CALL 1 (E ADD1) S)
(MOVEM 1 -4 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -5 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 -5 P)
(CALL 1 (E SPDLFT) S)
(CALL 1 (E PATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 -5 P)
(CALL 1 (E SPDLFT) S)
(JUMPN 1 TAG1)
(MOVE 1 -5 P)
(CALL 1 (E SPDLRT) S)
(PUSHJ P BKACT)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
(MOVE 1 -3 P)
(JUMPE 1 TAG14)
(HLRZ@ 1 0 P)
TAG14 (JUMPN 1 TAG12)
(MOVE 1 -2 P)
(JUMPE 1 TAG16)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(JUMPE 1 TAG20)
(MOVE 1 -5 P)
(CAME 1 -4 P)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
TAG20
TAG16
TAG12 (JUMPE 1 TAG11)
(MOVE 1 -5 P)
(CALL 1 (E SPDLRT) S)
(MOVEI 2 (QUOTE 3))
(CALL 2 (E PRINTLEV) S)
(MOVEM 1 (SPECIAL %PREVFN%) S)
(JRST 0 TAG10)
TAG11 (MOVE 1 -1 P)
(JUMPE 1 TAG23)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(JUMPE 1 TAG25)
(MOVE 1 -5 P)
(CALL 1 (E SPDLRT) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG27)
(MOVE 1 -5 P)
(CAME 1 -4 P)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG26)
TAG27 (MOVEI 1 (QUOTE NIL))
TAG26
TAG25
TAG23 (JUMPE 1 TAG21)
(MOVE 1 -5 P)
(CALL 1 (E SPDLRT) S)
(HLRZ@ 1 1)
(CALL 1 (E PRINT) S)
TAG21
TAG10 (MOVE 1 -5 P)
(CAMN 1 -4 P)
(JRST 0 TAG4)
(JRST 0 TAG1)
TAG2 (CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE / / / ) S)
(CALL 1 (E PRINC) S)
(MOVE 1 -5 P)
(PUSHJ P BKPRINVAL)
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE NIL))
(SUB P (C 6 0 6 0))
(POPJ P)
NIL
(LAP BKPRINVAL SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E SPDLFT) S)
(MOVEM 1 -1 P)
(CALL 1 (E MAKNUM) S)
(CALL 1 (E ADD1) S)
(CALL 1 (E NUMVAL) S)
(JUMPN 1 TAG4)
(MOVE 2 (SPECIAL LAPLST) S)
(MOVE 1 -1 P)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG5)
(HRRZ@ 1 1)
TAG5
TAG4 (CALL 1 (E PRIN1) S)
(MOVEI 1 (QUOTE / =/ ) S)
(CALL 1 (E PRINC) S)
(HLRZ@ 1 -1 P)
(JUMPN 1 TAG10)
(MOVE 1 -1 P)
TAG10 (PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E ADD1) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E EVALV) S)
(MOVEM 1 -2 P)
(CALL 0 (E UNBOUND) S)
(CAME 1 -2 P)
(JRST 0 TAG7)
(MOVEI 1 (QUOTE UNBOUND) S)
(JRST 0 TAG6)
TAG7 (MOVE 1 -2 P)
TAG6 (MOVEI 2 (QUOTE 3))
(CALL 2 (E PRINLEV) S)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP BKACT SUBR)
(PUSH P 1)
(MOVE 1 0 P)
(CALL 1 (E PATOM) S)
(JUMPN 1 TAG6)
(HLRZ@ 1 0 P)
(CALL 1 (E LITATOM) S)
(JUMPE 1 TAG7)
(TDZA 1 1)
TAG7 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG6)
(MOVEI 2 (QUOTE ERXACTION) S)
(HLRZ@ 1 0 P)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG10)
(TDZA 1 1)
TAG10 (MOVEI 1 (QUOTE T) S)
TAG6 (JUMPE 1 TAG5)
(MOVEI 1 (QUOTE (T T T T)) S)
(MOVEM 1 0 P)
TAG5 (MOVE 1 0 P)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP CHNMX SUBR)
(PUSH P 1)
TAG1 (MOVE 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6 (MOVE 2 (SPECIAL FROM) S)
(HLRZ@ 1 0 P)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG7)
(PUSH P (SPECIAL TO) S)
(POP P 1)
(HRLM@ 1 0 P)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL CHNGDFLG) S)
(JRST 0 TAG5)
TAG7 (HLRZ@ 1 0 P)
(PUSHJ P CHNMX)
TAG5 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP CHNM1 SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL FROM) S)
(0 3 (SPECIAL TO) S)
(0 0 (SPECIAL CHNGDFLG) S)
(PUSH P 1)
(PUSHJ P CHNMX)
(MOVE 1 (SPECIAL CHNGDFLG) S)
(JUMPE 1 TAG5)
(MOVE 1 0 P)
TAG5 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP BKPOS SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E LINELENGTH) S)
(MOVEI 2 (QUOTE 30))
(CALL 2 (E *DIF) S)
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E REMAINDER) S)
(MOVEM 1 0 P)
(CALL 0 (E TERPRI) S)
(PUSH P (C 0 0 (QUOTE 1) 0))
TAG1 (MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E *GREAT) S)
(JUMPE 1 TAG6)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG6 (MOVEI 1 (QUOTE !/ / ) S)
(CALL 1 (E PRINC) S)
(JUMPE 1 TAG7)
(MOVEI 2 (QUOTE 3))
(MOVE 1 0 P)
(CALL 2 (E *PLUS) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG7 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP ARGLIST SUBR)
(PUSH P 1)
(MOVEI 2 (QUOTE (EXPR FEXPR MACRO)) S)
(CALL 2 (E GETL) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG2)
(CALL 1 (E CADADR) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG6)
(CALL 1 (E ATOM) S)
TAG6 (JUMPE 1 TAG4)
(PUSH P (C 0 0 TAG7 0))
(MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE LXPD) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVE 1 (SPECIAL LASTPOS) S)
(CALL 1 (E ADD1) S)
(CALL 1 (E PREVEV) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E EVAL) S)
TAG7 (JRST 0 TAG3)
TAG4 (MOVE 1 0 P)
TAG3 (JRST 0 TAG1)
TAG2 (CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE ARGUMENTS/ NOT/ FOUND) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP LXPD SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6 (CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE ARG) S)
(CALL 2 (E XCONS) S)
(MOVE 2 0 P)
(CALL 2 (E CONS) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG7)
(MOVE 1 -1 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG7 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP PREVEV SUBR)
(PUSH P 1)
(CALL 0 (E SPDLPT) S)
(PUSH P 1)
TAG1 (MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E *GREAT) S)
(JUMPN 1 TAG3)
(MOVE 1 -1 P)
(CALL 1 (E SPDLFT) S)
(JUMPE 1 TAG6)
(MOVE 1 -1 P)
(CALL 1 (E ADD1) S)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG6 (MOVE 1 -1 P)
(JRST 0 TAG2)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP STKNAME SUBR)
(PUSH P 1)
(JUMPE 1 TAG1)
(CALL 1 (E SPDLFT) S)
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(CALL 1 (E SPDLRT) S)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG3)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG3 (HLRZ@ 1 0 P)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP STKNTH SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E MINUSP) S)
(JUMPE 1 TAG6)
(MOVE 1 -2 P)
(CALL 1 (E MINUS) S)
(MOVEI 2 (QUOTE T) S)
(MOVEM 1 -2 P)
(MOVEM 2 0 P)
TAG6
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG12)
(TDZA 1 1)
TAG12 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG11)
(MOVE 1 -2 P)
(CAIE 1 (QUOTE 0))
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
TAG11 (JUMPE 1 TAG10)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG10 (MOVE 1 0 P)
(JUMPE 1 TAG13)
(MOVE 1 -1 P)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -1 P)
(JRST 0 TAG7)
TAG13 (MOVE 1 -1 P)
(CALL 1 (E ADD1) S)
(CALL 1 (E PREVEV) S)
(MOVEM 1 -1 P)
TAG7 (MOVE 1 -2 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP STKSRCH SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVE 1 2)
(CALL 1 (E NUMBERP) S)
(JUMPN 1 TAG6)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG6
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG11)
(MOVE 1 -1 P)
(CALL 1 (E ADD1) S)
(CALL 1 (E PREVEV) S)
(MOVEM 1 -1 P)
(JRST 0 TAG10)
TAG11 (MOVE 1 -1 P)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -1 P)
TAG10 (MOVE 1 -1 P)
(JUMPE 1 TAG15)
(TDZA 1 1)
TAG15 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG14)
(MOVE 1 -1 P)
(CALL 1 (E STKNAME) S)
(CAME 1 -2 P)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
TAG14 (JUMPE 1 TAG13)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG13 (JRST 0 TAG1)
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP STKCOUNT SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE 0) 0))
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG10)
(TDZA 1 1)
TAG10 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG7)
(MOVE 1 -2 P)
(CALL 1 (E SUB1) S)
(CALL 1 (E NEXTEV) S)
(MOVEM 1 -2 P)
(JUMPE 1 TAG11)
(TDZA 1 1)
TAG11 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG7)
(MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 2 (E *GREAT) S)
TAG7 (JUMPE 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6 (MOVE 1 -2 P)
(CALL 1 (E STKNAME) S)
(CAME 1 -3 P)
(JRST 0 TAG12)
(MOVE 1 0 P)
(CALL 1 (E ADD1) S)
(MOVEM 1 0 P)
TAG12 (JRST 0 TAG1)
TAG2 (SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP SUBFUN1ARGPRINT SUBR)
(MOVE 1 (SPECIAL //BREAK1) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG4)
(MOVE 1 (SPECIAL LASTPOS) S)
(PUSH P (SPECIAL //BREAK1) S)
(CALL 1 (E ADD1) S)
(CALL 1 (E PREVEV) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E EVALV) S)
(JRST 0 TAG3)
TAG4 (MOVEI 1 (QUOTE (//BREAK1 (PREVEV (ADD1 LASTPOS)))) S)
(CALL 17 (E %BKEVAL) S)
TAG3 (MOVEM 1 (SPECIAL //BREAK1) S)
(PUSH P 1)
(CALL 0 (E UNBOUND) S)
(SUB P (C 1 0 1 0))
(CAME 1 (SPECIAL //BREAK1) S)
(JRST 0 TAG2)
(MOVEI 1 (QUOTE UNBOUND) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL //BREAK1) S)
TAG1 (JCALL 1 (E %PRINFN) S)
NIL
(LAP ARGPRINT SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL //BREAK1) S)
(JUMPE 1 TAG2)
(MOVE 1 (SPECIAL #%INDENT) S)
(CALL 1 (E BKPOS) S)
(MOVEI 1 (QUOTE / / / ) S)
(CALL 1 (E PRINC) S)
(MOVE 1 (SPECIAL //BREAK1) S)
(CALL 1 (E PRIN1) S)
(MOVEI 1 (QUOTE / =/ ) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE ((SUBFUN1ARGPRINT) ERRORX)) S)
(CALL 17 (E ERRSET) S)
TAG2 (JRST 0 SPECSTR)
NIL